Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/countdst/frmmain.frm

Visual Basic Form | 1998-12-29 | 12.4 KB | 382 lines

VERSION 5.00
Object = "{9BB387A1-9D3A-11D2-8D3D-006008B7789D}#3.0#0"; "CountDown.ocx"
Begin VB.Form frmMain
   Caption         =   "Form1"
   ClientHeight    =   9030
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8535
   LinkTopic       =   "Form1"
   ScaleHeight     =   9030
   ScaleWidth      =   8535
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame fraMain
      Height          =   8850
      Left            =   120
      TabIndex        =   0
      Top             =   75
      Width           =   7920
      Begin VB.Frame fraMode
         Caption         =   "Mode"
         Height          =   765
         Left            =   5685
         TabIndex        =   21
         Top             =   1095
         Width           =   1590
         Begin VB.OptionButton optMode
            Caption         =   "Normal Clock"
            Height          =   210
            Index           =   1
            Left            =   120
            TabIndex        =   23
            Top             =   480
            Width           =   1320
         End
         Begin VB.OptionButton optMode
            Caption         =   "Count Down"
            Height          =   210
            Index           =   0
            Left            =   120
            TabIndex        =   22
            Top             =   225
            Value           =   -1  'True
            Width           =   1320
         End
      End
      Begin VB.Frame fraStartStop
         Caption         =   "Start/Stop"
         Height          =   765
         Left            =   5685
         TabIndex        =   18
         Top             =   330
         Width           =   1590
         Begin VB.OptionButton optStartStop
            Caption         =   "Stop"
            Height          =   210
            Index           =   1
            Left            =   165
            TabIndex        =   20
            Top             =   495
            Width           =   765
         End
         Begin VB.OptionButton optStartStop
            Caption         =   "Start"
            Height          =   210
            Index           =   0
            Left            =   165
            TabIndex        =   19
            Top             =   240
            Value           =   -1  'True
            Width           =   765
         End
      End
      Begin VB.Frame fraChanges
         Caption         =   "Days"
         Height          =   765
         Left            =   5685
         TabIndex        =   15
         Top             =   1875
         Width           =   1590
         Begin VB.OptionButton optShowDays
            Caption         =   "Hide"
            Height          =   195
            Index           =   1
            Left            =   120
            TabIndex        =   17
            Top             =   465
            Width           =   885
         End
         Begin VB.OptionButton optShowDays
            Caption         =   "Show"
            Height          =   225
            Index           =   0
            Left            =   120
            TabIndex        =   16
            Top             =   225
            Value           =   -1  'True
            Width           =   900
         End
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   6
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   6705
         Width           =   1185
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   5
         Left            =   255
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   6690
         Width           =   1185
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   4
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   4815
         Width           =   1185
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   3
         Left            =   255
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   4890
         Width           =   1185
      End
      Begin VB.Frame fraBorder
         Height          =   1920
         Index           =   6
         Left            =   3810
         TabIndex        =   10
         Top             =   6765
         Width           =   3525
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1275
            Index           =   6
            Left            =   360
            TabIndex        =   30
            Top             =   480
            Width           =   2910
            _ExtentX        =   5133
            _ExtentY        =   2249
         End
      End
      Begin VB.Frame fraBorder
         Height          =   1920
         Index           =   5
         Left            =   150
         TabIndex        =   9
         Top             =   6765
         Width           =   3525
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1470
            Index           =   5
            Left            =   120
            TabIndex        =   29
            Top             =   360
            Width           =   3180
            _ExtentX        =   5609
            _ExtentY        =   2593
            Style           =   5
         End
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   2
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   3045
         Width           =   1185
      End
      Begin VB.Frame fraBorder
         Height          =   1560
         Index           =   4
         Left            =   3810
         TabIndex        =   7
         Top             =   4920
         Width           =   2565
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1140
            Index           =   4
            Left            =   240
            TabIndex        =   28
            Top             =   240
            Width           =   2145
            _ExtentX        =   3784
            _ExtentY        =   2011
            Style           =   4
         End
      End
      Begin VB.Frame fraBorder
         Height          =   1560
         Index           =   3
         Left            =   150
         TabIndex        =   6
         Top             =   4920
         Width           =   2565
         Begin y2kCountDown.CountDown CountDown1
            Height          =   960
            Index           =   3
            Left            =   360
            TabIndex        =   27
            Top             =   360
            Width           =   1980
            _ExtentX        =   3493
            _ExtentY        =   1693
            Style           =   3
         End
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   1
         Left            =   255
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   3000
         Width           =   1185
      End
      Begin VB.Frame fraBorder
         Height          =   1560
         Index           =   1
         Left            =   150
         TabIndex        =   4
         Top             =   3105
         Width           =   2565
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1155
            Index           =   1
            Left            =   240
            TabIndex        =   25
            Top             =   240
            Width           =   1950
            _ExtentX        =   3440
            _ExtentY        =   2037
            Style           =   1
         End
      End
      Begin VB.Frame fraBorder
         Height          =   1560
         Index           =   2
         Left            =   3810
         TabIndex        =   3
         Top             =   3105
         Width           =   2565
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1140
            Index           =   2
            Left            =   360
            TabIndex        =   26
            Top             =   240
            Width           =   1980
            _ExtentX        =   3493
            _ExtentY        =   2011
            Style           =   2
         End
      End
      Begin VB.OptionButton optSelect
         Caption         =   "Select"
         Height          =   330
         Index           =   0
         Left            =   255
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   225
         Value           =   -1  'True
         Width           =   1185
      End
      Begin VB.Frame fraBorder
         Height          =   2325
         Index           =   0
         Left            =   150
         TabIndex        =   1
         Top             =   330
         Width           =   5385
         Begin y2kCountDown.CountDown CountDown1
            Height          =   1890
            Index           =   0
            Left            =   120
            TabIndex        =   24
            Top             =   240
            Width           =   5070
            _ExtentX        =   8943
            _ExtentY        =   3334
            Style           =   0
         End
      End
   End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'You can change the Style of the control with the syntax
'   object.Style = Style_Flame
'where "object" is the name of the control
'There are seven styles, each shown on this form.  You will notice
'that this program takes a long time to load and unload.
'That is because there are so many of the controls on the form.
'Typically you would only use one or two on the form
Private Sub Form_Load()
Dim nCounter%
'start all the counters with the
' StartCounting Method
For nCounter% = 0 To CountDown1.Count - 1
    CountDown1(nCounter%).StartCounting
Next nCounter%
End Sub
Private Sub optMode_Click(Index As Integer)
Dim whichCtl%
whichCtl% = GetSelectedControl
Select Case Index
    Case 0
        'Change the Mode from NormalTime to CountDown
        'with the mode property
        CountDown1(whichCtl%).Mode = CountDown
        'Show the Days count
        CountDown1(whichCtl%).ShowDays = True
    Case 1
        'Change the Mode from CountDown to Normal
        CountDown1(whichCtl%).Mode = NormalTime
        'Hide the days count
        CountDown1(whichCtl%).ShowDays = False
End Select
CountDown1(whichCtl%).Refresh
End Sub
Private Sub optSelect_Click(Index As Integer)
optStartStop(0).Value = True
optMode(0).Value = True
optShowDays(0).Value = True
CountDown1(Index).Refresh
optShowDays_Click (0)
optStartStop_Click (0)
optStartStop_Click (0)
CountDown1(Index).Refresh
End Sub
Private Sub optShowDays_Click(Index As Integer)
Dim whichCtl%
whichCtl% = GetSelectedControl
Select Case Index
    Case 0
        CountDown1(whichCtl%).ShowDays = True
    Case 1
        CountDown1(whichCtl%).ShowDays = False
End Select
CountDown1(whichCtl%).Refresh
End Sub
Private Sub optStartStop_Click(Index As Integer)
Dim whichCtl%
whichCtl% = GetSelectedControl
Select Case Index
    Case 0
        CountDown1(whichCtl%).StartCounting
    Case 1
        CountDown1(whichCtl%).StopCounting
End Select
End Sub
Private Function GetSelectedControl() As Integer
Dim nCounter%
For nCounter% = 0 To optSelect.Count - 1
    If optSelect(nCounter).Value = True Then
        GetSelectedControl = nCounter
        Exit For
    End If
Next nCounter%
End Function